-- background: 3286 from stack: in
-- bmap block id: 3548
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
on openBackground
  hide menubar
end openBackground

on closeBackground
  show menubar
end closeBackground


-- part 3 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=468 top=316 right=338 bottom=495
-- title width / last selected line: 0
-- icon id / first selected line: 16560 / 16560
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  go next
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=427 top=316 right=338 bottom=454
-- title width / last selected line: 0
-- icon id / first selected line: 15420 / 15420
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  go prev
end mouseUp



-- part 6 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=0 top=19 right=342 bottom=152
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: about
----- HyperTalk script -----
on mouseUp
  if the commandKey is down then
    set lockText of me to not the lockText of me
    exit mouseUp
  end if
  -- A script to 'fake' an information text block.
  -- requires a topic list field and the text field.
  -- click on a topic and the script will find it in the text field
  -- and scroll it to the top.
  -- Copyright ©1990 by David G. Davidson

  set the lockText of me to false
  click at the clickLoc
  click at the clickLoc
  Select the selectedLine
  set the lockText of me to true

  if the selection is empty then exit mouseUp

  if the selection is "Show The Script" then  -- show the script
    click at 0,0 -- remove the selection RECT
    edit the script of me
    exit mouseUp
  end if

  if the selection is "Go Home" then
    set cursor to watch
    lock screen
    set the scroll of me to 0
    go last card
    show cd fld "click"
    unlock screen
    wait until the mouse is down
    hide cd fld "click"
    go home
  end if

  lock screen -- find the info text
  find whole selection &":" in field "Information"
  click at 0,0 -- this erases the find RECT before the user can see it
  unlock screen
end mouseUp



-- part 7 (field)
-- low flags: 01
-- high flags: 2007
-- rect: left=135 top=19 right=342 bottom=411
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Information


-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=411 top=34 right=150 bottom=511
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  show card field copyright
  wait 2 seconds
  hide card field copyright
  -- go rabbits
end mouseUp